From 69b95560cde2119f7f3c3d5bd241bc7355bcf27d Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 22 Jun 1993 02:02:00 +0000 Subject: [PATCH] * subr.el (event-end): Modified to account for multi-click events. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index ad96cc54ee3..9759799fb3a 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -313,7 +313,7 @@ If EVENT is a click event, this function is the same as `event-start'. The return value is of the form (WINDOW BUFFER-POSITION (COL . ROW) TIMESTAMP) The `posn-' functions access elements of such lists." - (nth (1- (length event)) event)) + (nth (if (consp (nth 2 event)) 2 1) event)) (defsubst posn-window (position) "Return the window in POSITION. -- 2.30.2